﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class Encuestas_MantenimientoPreguntas
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        EnlazarGridView()
    End Sub
    Sub EnlazarGridView()
        'Instancamos la clase
        Dim capanegocios As New PreguntaBL

        gvpreguntas.DataSource = capanegocios.ListarPreguntas
        gvpreguntas.DataBind()

        'Liberamos recursos
        capanegocios = Nothing
    End Sub

    Sub Capturarpregunta(ByVal src As Object, ByVal args As CommandEventArgs)
        'Instancamos la clase
        Dim capanegocios As New PreguntaBL
        Dim objeto As New BE.PreguntaBE

        objeto.codigo = args.CommandName

        Dim resultado As Boolean = capanegocios.EliminarPregunta(objeto)

        If resultado = True Then
            'Refrescamos los datos
            capanegocios.ListarPreguntas()
        Else
            lblresultado.Text = "La pregunta no pudo ser eliminada"

        End If
        'Liberamos recursos
        capanegocios = Nothing
    End Sub


    Protected Sub gvpreguntas_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvpreguntas.PageIndexChanging
        gvpreguntas.PageIndex = e.NewPageIndex
        EnlazarGridView()
    End Sub
End Class

